﻿Imports System
Imports System.Workflow.ComponentModel

Namespace System.Workflow.Activities
    <Serializable> _
    Friend Class EnteringStateAction
        Inherits StateMachineAction
        ' Methods
        Friend Sub New(ByVal stateName As String)
            MyBase.New(stateName)
        End Sub

        Friend Overrides Sub Execute(ByVal context As ActivityExecutionContext)
            MyBase.Execute(context)
            context.TrackData("StateActivity.StateChange", MyBase.CurrentState.QualifiedName)
        End Sub

    End Class
End Namespace

